home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 223 / 223.d81 / b.return of sm (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  47 lines
  1. 5 poke53281,0:poke53280,0: print"[147]"
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 gosub41000
  4. 30 q$=chr$(34):print"[144]load"q$"sammy title"q$","dv
  5. 35 print"run":print"[154]     [196]oes [206][207][212] [210]eturn to [204][207][193][196][211][212][193][210]"
  6. 36 print"     [207]nly runs from drive #8."
  7. 40 print"        [208]ress <[209]> to [209]uit now[158]"
  8. 41 forx=0to5:reada$:printtab(19-len(a$)/2)a$:next
  9. 44 getz$:ifz$<>""then49
  10. 45 q=q+1:ifq<30then44
  11. 46 q=0:poke646,(peek(646)+8)and15:printtab(19-len(a$)/2)a$:goto44
  12. 49 print"[144]":ifz$="q"then40000
  13. 50 poke631,13:poke632,13:poke198,2:end
  14. 9999 end
  15. 10000 d=peek(186):n$="0:b.return of sm":open15,d,15,"s"+n$:close15:saven$,d:end
  16. 40000 poke53280,0:poke53281,0:poke53265,27:dv=peek(186):q$=chr$(34):print"[147][144]";
  17. 40010 a$="hello connect":r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  18. 40020 close2:open2,dv,2,a$:get#2,b$:close2:ifst=0then40050
  19. 40030 open15,dv,15,"i0":input#15,en:close15
  20. 40035 poke53280,14:poke53281,6:print"[147][154]"
  21. 40040 poke44,8:poke8*256,0:poke55,0:poke56,160:clr:new
  22. 40050 print"load"q$a$q$","dv""
  23. 40055 forx=1to4:poke630+x,asc(mid$(r$,x)):next:poke198,4:goto40040
  24. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  25. 41002 poke214,14:print
  26. 41004 printtab(1)"[155]                                     "
  27. 41005 forx=1to6
  28. 41006 printtab(1)"[152]                                     "
  29. 41007 next
  30. 41013 printtab(1)"[151]                                     "
  31. 41020 forx=1to4:reada$:poke214,15+x:print
  32. 41022 printtab(19-len(a$)/2)"[152]"a$
  33. 41024 next
  34. 41030 t=ti+60
  35. 41031 ift>tithen41031
  36. 41032 print"":return
  37. 41045 data"[212]he [210]eturn of [211]ammy [205]arlo
  38. 41047 [131]"by (NULL)ichard mid$. str$erocher"
  39. 41052 [131]"(c) 2003 by mid$ & asc (NULL)ublishing, right$nc.
  40. 41053 data"www.loadstar.com
  41. 50000 [131]"sys(NULL)hen asked for a ascright$(NULL)val (NULL)atn(NULL)val, "
  42. 50001 [131]"type and valnter:"
  43. 50002 [131]""
  44. 50003 [131]"(NULL)atn(NULL)(NULL)(NULL)"
  45. 50004 [131]""
  46. 50005 [131]"(NULL)ress a (NULL)ey to lenontinueon"
  47.